home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 131 / SGDS 131.2mg / SDGS.131 / SDD131 / D / PS.START (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1992-08-23  |  3.0 KB  |  132 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  ROT= 0: SPEED= 255: REM <CTRL-0x0d>(C)1991
  2. 100  PRINT  CHR$(21)
  3. 110  HGR : CALL 2304: POKE 48688, PEEK(0): POKE 48689, PEEK(1): CALL 2224
  4. 140  POKE 104,15: POKE 15 *256,0: RUN : REM run the actual
  5. 160  REM 15 space namee above so it can be changed
  6. 0 AL
  7. 19464  +<CTRL-0x08>8 <CTRL-0x1f><UNKNOWN TOKEN> GOSUB <CTRL-0x0b> IF ^ TAB(  IF ) TAB( <CTRL-0x09>  PLOT ) TAB( `8 <CTRL-0x1f><UNKNOWN TOKEN> GOSUB <CTRL-0x0b> IF _ TAB(  IF ) TAB( ) SIN PLOT ) TAB( ` HGR2 <CTRL-0x01>` IF ^ TAB(  IF ) TAB( <CTRL-0x09>  PLOT ) TAB( `8 <CTRL-0x1f><UNKNOWN TOKEN> GOSUB <CTRL-0x02> HGR2 <CTRL-0x01>` IF _ TAB(  IF ) TAB( ) SIN PLOT ) TAB( `"
  8. 36286  CHR$<CTRL-0x0b> IF 1 GET  PLOT  LEFT$<CTRL-0x0b> SPEED=  TAB(  DEL 
  9. 389  SPEED= 
  10. 20653  TAB(  IF R TAB(  IF W TAB(  ONERR  ASC -@ = <CTRL-0x04> IF U TAB( ` IF T TAB(  SPEED=   DEL  ASC` END  END  END  END  END  END  END  END 
  11. 32896  END  END  END  END  END 
  12. 32896  END  END  END  END  END 
  13. 32896  END  END  END  END  END (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE PPPPPPPP =  =  =  =  =  =  =  = PPPPPPPP =  =  =  =  =  =  =  = PPPPPPPP =  =  =  =  =  =  =  = PPPPPPPP =  =  =  =  =  =  =  = 
  14. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c>
  15. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f>
  16. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c>
  17. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f>
  18. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c>
  19. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f> J<UNKNOWN TOKEN> ONERR E) -  GOSUB <CTRL-0x03>L LOAD <CTRL-0x0b> PLOT +<CTRL-0x0b><CTRL-0x0a><CTRL-0x0a>.\<CTRL-0x0b><CTRL-0x0a>.\<CTRL-0x0b> PLOT [<CTRL-0x0b> IF \<CTRL-0x0b>)<CTRL-0x03>i<CTRL-0x0b> PLOT \<CTRL-0x0b> ONERR % STORE  -<CTRL-0x13> HGR2 <CTRL-0x02> SPEED= <CTRL-0x12><CTRL-0x0a> DEL <CTRL-0x02><CTRL-0x0a><CTRL-0x0a>e<CTRL-0x02> TAB( <CTRL-0x05><UNKNOWN TOKEN><CTRL-0x0b> TAB( <CTRL-0x12><UNKNOWN TOKEN><CTRL-0x06> TAB( <CTRL-0x0c> = <CTRL-0x05> RIGHT$<CTRL-0x04><CTRL-0x18>i<CTRL-0x01> DEL <CTRL-0x02> PLOT  XDRAW <CTRL-0x0b> ONERR $ DEL 
  20. 36871 <CTRL-0x04> ASC
  21. 1897  DEL <CTRL-0x06> LOMEM: 2 +<UNKNOWN TOKEN><CTRL-0x02> COLOR=  CALL ^<CTRL-0x0b> ASC<CTRL-0x02> SPEED= 0 VTAB <CTRL-0x09> *<UNKNOWN TOKEN><CTRL-0x09> EXP LEFT$<CTRL-0x0b> = <UNKNOWN TOKEN> SPEED= <UNKNOWN TOKEN> = <CTRL-0x02> SPEED=  =  COLOR= <CTRL-0x07> INPUT <CTRL-0x05> PLOT  FOR <CTRL-0x0b> LOMEM: <CTRL-0x02> POKE @<CTRL-0x09><CTRL-0x18>e  DEL & POKE 
  22. 34278 ' LOMEM: 
  23. 1157  IF <CTRL-0x01><CTRL-0x0c>I
  24. 9738 <CTRL-0x04> *<CTRL-0x10><UNKNOWN TOKEN>j DEL <CTRL-0x03> RESUME <CTRL-0x06> RETURN &=<UNKNOWN TOKEN><CTRL-0x0b><CTRL-0x05><CTRL-0x03> HGR & + RETURN &=<UNKNOWN TOKEN><CTRL-0x0b><CTRL-0x05><CTRL-0x04> HGR & ASC<CTRL-0x02> = <CTRL-0x05>  OR [<CTRL-0x0b> ASC<CTRL-0x05><UNKNOWN TOKEN>[<CTRL-0x0b> SPEED=  =   NOT <CTRL-0x05><CTRL-0x10> &  ONERR <CTRL-0x02>8 RIGHT$ ON  -<CTRL-0x0a><UNKNOWN TOKEN><CTRL-0x06> -<CTRL-0x01><UNKNOWN TOKEN>E GOSUB <CTRL-0x05> IF  XDRAW <CTRL-0x0b> DEL <CTRL-0x02> SPEED= 
  25. 43275 <CTRL-0x0c> PLOT \<CTRL-0x0b> ASC<CTRL-0x05> SPEED=  = L@<CTRL-0x0b> -<CTRL-0x14><UNKNOWN TOKEN><CTRL-0x1b> -<CTRL-0x0c> = % X<UNKNOWN TOKEN>8 ONERR # VAL" STORE  RESUME ! J<UNKNOWN TOKEN> GR  = <UNKNOWN TOKEN> X<UNKNOWN TOKEN>L LEN<CTRL-0x0b> SPEED= # DEL ! SPEED= 
  26. 8837  SPEED= <CTRL-0x13> DEL # ?<UNKNOWN TOKEN>L<UNKNOWN TOKEN><UNKNOWN TOKEN> gjpqy_ END  FOR  DATA  READ  VLIN  FLASH  NEW <UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN> TAN TAB(  END  GET 
  27. 3084 <CTRL-0x0c><CTRL-0x0c>
  28. 13107 66666
  29. 7695 <<CTRL-0x1f><CTRL-0x0c>
  30. 3096 <CTRL-0x06>33
  31. 28187 ;3n
  32. 6 
  33. 1542 <CTRL-0x06><CTRL-0x0c><CTRL-0x18>
  34. 12336 0<CTRL-0x18><CTRL-0x0c>
  35. 16140 <CTRL-0x0c><CTRL-0x1e><CTRL-0x18><CTRL-0x18>~~<CTRL-0x18><CTRL-0x18><CTRL-0x0c><CTRL-0x0c><CTRL-0x06>~~
  36. 12 
  37. 1548 <CTRL-0x03>
  38. 15155 ?73<CTRL-0x1e>
  39. 3084 <CTRL-0x0c><CTRL-0x0c>?
  40. 7728 <CTRL-0x03><CTRL-0x03>?
  41. 7216 03<CTRL-0x1e>
  42. 6939 ?<CTRL-0x18><CTRL-0x18>
  43. 12319 03<CTRL-0x1e>
  44. 7939 33<CTRL-0x1e>
  45. 3096 <CTRL-0x06><CTRL-0x06><CTRL-0x06>
  46. 7731 33<CTRL-0x1e>
  47. 15923 03<CTRL-0x1e>
  48. 12 <CTRL-0x0c><CTRL-0x0c>
  49. 6144 <CTRL-0x18><CTRL-0x0c><CTRL-0x18><CTRL-0x0c><CTRL-0x06><CTRL-0x03><CTRL-0x06><CTRL-0x0c><CTRL-0x18>
  50. 62 >>
  51. 6156 0<CTRL-0x18><CTRL-0x0c><CTRL-0x06>
  52. 6192 <CTRL-0x0c>
  53. 25406 og<CTRL-0x1b>c>
  54. 13107 ?33
  55. 7987 33<CTRL-0x1f>
  56. 771 <CTRL-0x03>3<CTRL-0x1e>
  57. 13107 33<CTRL-0x1f>
  58. 3843 <CTRL-0x03><CTRL-0x03>?
  59. 3843 <CTRL-0x03><CTRL-0x03><CTRL-0x03>
  60. 15107 33<CTRL-0x1e>
  61. 16179 333
  62. 3084 <CTRL-0x0c><CTRL-0x0c>?
  63. 12336 03<CTRL-0x1e>
  64. 3871 <CTRL-0x1f>33
  65. 771 <CTRL-0x03><CTRL-0x03>?
  66. 13119 333
  67. 16183 ;33
  68. 13107 33<CTRL-0x1e>
  69. 7987 <CTRL-0x03><CTRL-0x03><CTRL-0x03>
  70. 13107 3<CTRL-0x1b>6
  71. 7987 <CTRL-0x0f><CTRL-0x1b>3
  72. 7683 03<CTRL-0x1e>
  73. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  74. 13107 33<CTRL-0x1e>
  75. 13107 3<CTRL-0x1e><CTRL-0x0c>
  76. 13107 ??3
  77. 3102 <CTRL-0x1e>33
  78. 3102 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  79. 3096 <CTRL-0x06><CTRL-0x03>?
  80. 1542 <CTRL-0x06><CTRL-0x06><CTRL-0x1e>
  81. 3078 <CTRL-0x18>0`
  82. 12336 00<
  83. 102 
  84. 3084 <CTRL-0x18>
  85. 13118 >
  86. 13087 33<CTRL-0x1f><CTRL-0x1e>3<CTRL-0x03>3<CTRL-0x1e>
  87. 13118 33><CTRL-0x1e>3<CTRL-0x1f><CTRL-0x03><CTRL-0x1e>
  88. 16140 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  89. 13107 3>0<CTRL-0x1e><CTRL-0x03><CTRL-0x03><CTRL-0x1f>3333
  90. 3086 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>
  91. 3086 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c><CTRL-0x07><CTRL-0x03><CTRL-0x03>3<CTRL-0x1f><CTRL-0x0f><CTRL-0x1f>3
  92. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>3??33<CTRL-0x1f>3333<CTRL-0x1e>333<CTRL-0x1e>
  93. 13107 3<CTRL-0x1f><CTRL-0x03><CTRL-0x03>
  94. 13107 >00
  95. 819 <CTRL-0x03><CTRL-0x03><CTRL-0x1e><CTRL-0x03><CTRL-0x1e>0<CTRL-0x1e>
  96. 3135 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1c>3333<CTRL-0x1e>333<CTRL-0x1e><CTRL-0x0c>33??33<CTRL-0x1e><CTRL-0x0c><CTRL-0x1e>3
  97. 13107 <CTRL-0x1e><CTRL-0x0c><CTRL-0x06><CTRL-0x03>
  98. 3096 <CTRL-0x06>?
  99. 1548 <CTRL-0x0c><CTRL-0x0c>8
  100. 6168 <CTRL-0x18><CTRL-0x18><CTRL-0x18><CTRL-0x18><CTRL-0x07><CTRL-0x0c><CTRL-0x0c><CTRL-0x18><CTRL-0x0c><CTRL-0x0c><CTRL-0x07>
  101. 27 
  102. 32639 
  103. 5 IM = 25: DIM IM$(IM): FOR I = 1 TO IM: READ IM$(I):IM$(I) =  LEFT$(IM$(I),11): NEXT 
  104. 20 D$ =  CHR$(4): FOR PG = 1 TO 4: PRINT D$"-ps.rpk"PG: IF PG >1  THEN 60
  105. 41  VTAB 3: HTAB 3: PRINT "Copyright 1992 by Softdisk Inc.": HTAB 5: PRINT "Published on Softdisk #131."
  106. 44  VTAB 6: HTAB 4: PRINT "Images by the Softdisk staff."
  107. 50  VTAB 13: FOR I = 0 TO 2: HTAB 1 +I *12: PRINT IM$(I +1);: NEXT : VTAB 19: HTAB 13: PRINT IM$(4): GOSUB 800: GOTO 200
  108. 60  IF PG >2  THEN 80
  109. 70  VTAB 6: FOR I = 0 TO 1: HTAB 1 +I *12: PRINT IM$(5 +I);: NEXT 
  110. 75  VTAB 13: FOR I = 0 TO 2: HTAB 1 +I *12: PRINT IM$(7 +I);: NEXT : VTAB 19: FOR I = 0 TO 2: HTAB 1 +I *12: PRINT IM$(10 +I);: NEXT : GOSUB 850: GOTO 200
  111. 80  IF PG >3  THEN 100
  112. 90  VTAB 6: FOR I = 0 TO 2: HTAB 1 +I *12: PRINT IM$(13 +I);: NEXT 
  113. 95  VTAB 13: FOR I = 0 TO 2: HTAB 1 +I *12: PRINT IM$(16 +I);: NEXT 
  114. 97  VTAB 19: FOR I = 0 TO 1: HTAB 1 +I *12: PRINT IM$(19 +I);: NEXT 
  115. 98  GOSUB 800: GOTO 200
  116. 100  VTAB 6: FOR I = 0 TO 1: HTAB 1 +I *12: PRINT IM$(21 +I);: NEXT 
  117. 110  VTAB 13: FOR I = 0 TO 2: HTAB 1 +I *12: PRINT IM$(23 +I);: NEXT 
  118. 120  GOSUB 850
  119. 200  NEXT : GOTO 20
  120. 800 V = 15:H = 26: GOTO 900
  121. 850 V = 1:H = 26
  122. 900  VTAB V: HTAB H: PRINT "Press any": VTAB V +1: HTAB H: PRINT " key to ": VTAB V +2: HTAB H: PRINT "continue."
  123. 910  VTAB V +4: HTAB H: PRINT "ESC quits"
  124. 920  GET A$: IF A$ < > CHR$(27)  THEN  RETURN 
  125. 930  VTAB V: HTAB H: PRINT " Do you  ": VTAB V +1: HTAB H: PRINT " want to": VTAB V +2: HTAB H: PRINT "  quit?  ": VTAB V +4: HTAB H: PRINT "  (Y/N)  "
  126. 940  GET A$: IF A$ = "y"  OR A$ = "Y"  THEN  CALL 2227: PRINT D$"BYE"
  127. 950  IF A$ < >"n"  AND A$ < >"N"  THEN 940
  128. 960  GOTO 900
  129. 1000  DATA American Copper,Checkerspot,Generic 1,Generic 2
  130. 1010  DATA Generic 3,Giant Swallowtail,Buckeye,Common Sulphur,Monarch,Buckeye,Common Sulphur,Monarch
  131. 1020  DATA Mourning Cloak,Tiger Swallowtail,Wood Nymph,Mourning Cloak,Tiger Swallowtail,Wood Nymph,Meso. Grandis,Red Admiral
  132. 1030  DATA " ",Silvery Blue,Solomon Islands,Spring Azure,Zebra Heliconian